home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / fortran / fckdemo1.zip / SUBCROSS.LST < prev    next >
File List  |  1994-04-12  |  3KB  |  112 lines
  1.  FORCHECK PC V11.10  MS5 compiler emulation  03-Nov-93  11:29:11  page: 1
  2.  FCKDEM.FOR  /OB/RI
  3.  
  4.  
  5.       1         PROGRAM FCKDEM
  6.       2 C================================================================
  7.       3 C
  8.       4 C       this is a FORTRAN-77 demonstration program
  9.       5 C               to show FORCHECK output
  10.       6 C
  11.       7 C================================================================
  12.       8 C
  13.       9         PARAMETER (LUN=1)
  14.      10 C
  15.      11         COMMON /COM/ NAME1
  16.      12 C       INCLUDE 'FCKDEM.INC'
  17.      13         COMMON/COM1/K
  18.      14         INTEGER IAR(10)
  19.      15         EQUIVALENCE (NAME,NAME1)
  20.      16         CHARACTER*1 NAME(6), NAME1*6
  21.      17 C
  22.      18         DATA L1/1/, LABEL/1000/
  23.      19 C
  24.      20 C================================================================
  25.      21 C
  26.      22         DO 10 I = 1, 6
  27.      23           NAME(I) = ' '
  28.      24  10     CONTINUE
  29.      25         NAME(7) = ' '
  30.      26 C
  31.    7
  32.  **[116 E] subscript out of range
  33.      27         L = A + FUN(1.)
  34.    A                               
  35.  **[115 E] no value assigned to this item
  36.    A + FUN(1.)
  37.  **[355 I] implicit conversion to less accurate data type
  38.      28         CALL FCKSUB (NAME, IAR, 2)
  39.      29 C
  40.      30         WRITE(LUN,LABEL), 'European Software'
  41.    LABEL                           
  42.  **[112 E] no statement label assigned to this variable
  43.    LABEL
  44.  **[357 W] obsolescent Fortran 90 feature
  45.    , 'European Software
  46.  **[198 W] "," not allowed
  47.      31         READ *,I
  48.      32  1000   FORMAT(A)
  49.      33 C
  50.      34         END
  51.  
  52.  FORCHECK PC V11.10          FCKDEM          03-Nov-93  11:29:11  page: 2
  53.  FCKDEM.FOR  /OB/RI
  54.  
  55.  
  56.  ENTRY          TYPE NARG  LINE
  57.  
  58.     FCKDEM         P          1
  59.  
  60.  
  61.  LABEL TYPE LINES
  62.  
  63.      10 L   22  24#
  64.    1000 F   32#
  65.    1000                            
  66.  **[110 I] unreferenced
  67.  
  68.  
  69.  CONSTANT  TYPE   LINES
  70.  
  71.     LUN     I*4    9# 30
  72.  
  73.  
  74.  VARIABLE  TYPE     RANK  OPERATIONS  LINES
  75.  
  76.     A       R*4                    R  27
  77.     I       I*4                 IL R  22# 23  31#
  78.     IAR     I*4       1           S   14  28
  79.     K       I*4            C*         13
  80.     L       I*4                A      27#
  81.     L1      I*4               D       18#
  82.     LABEL   I*4               D    R  18# 30
  83.     NAME   CH*1       1    C Q A  S   15  16  23# 25# 28
  84.     NAME1  CH*6            C Q        11  15  16
  85.    A                               
  86.  **[109 E] not defined
  87.    L                               
  88.  **[110 I] unreferenced
  89.    L1                              
  90.  **[110 I] unreferenced
  91.    LABEL                           
  92.  **[112 E] no statement label assigned to this variable
  93.  
  94.  
  95.  SUBPROGRAM     TYPE NARG OPERATIONS  LINES
  96.  
  97.     FCKSUB         S  3               28
  98.     FUN     R*4    F  1            R  27
  99.  
  100.  
  101.  COMMON_BLOCK   TYPE   LENGTH       OPERATIONS
  102.  
  103.    /COM/         CH         6        C Q A  S
  104.    /COM1/         N         4        C*
  105.    /COM1/
  106.  **[110 I] unreferenced
  107.  
  108.  
  109.  UNIT_IDENTIFIER  ACCESS OPERATIONS    LINES
  110.  
  111.     LUN             S F    W           30
  112.